home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 11 / Amiga Plus 11: Amiga Future.iso / rexx / input.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-29  |  733b  |  34 lines
  1. /*
  2.  * Eingabe.rexx
  3.  * Beispiel-ARexx-Skript zu TurboBase   © Michael Friedrich
  4.  *
  5.  *
  6.  *
  7.  */
  8.  
  9. /* Failat auf 11 setzen, da TurboBase bei Klick auf <Abbruch> den
  10.    Wert 10 zurückliefert!
  11. */
  12. Options FailAt 11
  13. /* Dies wird benötigt, um das Ergebnis von EINGABE in RESULT zurück-
  14.    zuerhalten */
  15. Options Results
  16.  
  17. /* Wir wollen mit TurboBase kommunizieren */
  18. ADDRESS TBASE
  19.  
  20.  
  21. REQPARA 10 10   /* Fenster an Position 10,10 */
  22. 'message "Dies ist ein ARexx-Beispiel" "Beispiel 1"'
  23.  
  24. REQPARA OK Ja Abbruch Nein
  25. 'request "Wollen Sie das Beispiel fortsetzen?" "Beispiel 2"'
  26.  
  27. /* Hat Benutzer auf <Abbruch> gedrückt ??? */
  28. IF rc~=0 then exit
  29.  
  30. 'EINGABE "Geben Sie einen Text ein" "Beispiel 3"'
  31.  
  32. if rc==0 then say "Sie haben '"RESULT||"' eingegeben"
  33.  
  34.